object mdzuma: Tmdzuma
  OldCreateOrder = False
  Height = 578
  Width = 703
  object AQryAcertaCliente: TADOQuery
    CacheSize = 30
    Connection = ADOConnection1
    CursorLocation = clUseServer
    CursorType = ctStatic
    LockType = ltReadOnly
    Parameters = <>
    Left = 496
    Top = 460
  end
  object AQryCadastro: TADOQuery
    AutoCalcFields = False
    CacheSize = 30
    Connection = ADOConnection1
    CursorType = ctOpenForwardOnly
    LockType = ltReadOnly
    CommandTimeout = 10
    Parameters = <
      item
        Name = 'CLI_COD'
        DataType = ftString
        Size = 5
        Value = '44398'
      end>
    Prepared = True
    SQL.Strings = (
      'SELECT * FROM BD_CLI'
      'WHERE CLI_COD= :CLI_COD')
    Left = 584
    Top = 278
    object AQryCadastroCLI_COD: TIntegerField
      FieldName = 'CLI_COD'
    end
    object AQryCadastroCLI_FJ: TStringField
      FieldName = 'CLI_FJ'
      Size = 1
    end
    object AQryCadastroCLI_NOM: TStringField
      FieldName = 'CLI_NOM'
      Size = 40
    end
    object AQryCadastroCLI_FAN: TStringField
      FieldName = 'CLI_FAN'
      Size = 40
    end
    object AQryCadastroCLI_END: TStringField
      FieldName = 'CLI_END'
      Size = 45
    end
    object AQryCadastroCLI_BAI: TStringField
      FieldName = 'CLI_BAI'
    end
    object AQryCadastroCLI_MUN: TStringField
      FieldName = 'CLI_MUN'
    end
    object AQryCadastroCLI_UF: TStringField
      FieldName = 'CLI_UF'
      Size = 2
    end
    object AQryCadastroCLI_CEP: TStringField
      FieldName = 'CLI_CEP'
      Size = 10
    end
    object AQryCadastroCLI_CGC: TStringField
      FieldName = 'CLI_CGC'
      Size = 18
    end
    object AQryCadastroCLI_INS: TStringField
      FieldName = 'CLI_INS'
      Size = 18
    end
    object AQryCadastroCLI_GRA: TStringField
      FieldName = 'CLI_GRA'
      Size = 1
    end
    object AQryCadastroCLI_ATR1: TIntegerField
      FieldName = 'CLI_ATR1'
    end
    object AQryCadastroCLI_ATR2: TIntegerField
      FieldName = 'CLI_ATR2'
    end
    object AQryCadastroCLI_PRA: TStringField
      FieldName = 'CLI_PRA'
      Size = 1
    end
    object AQryCadastroCLI_PEND: TStringField
      FieldName = 'CLI_PEND'
      Size = 45
    end
    object AQryCadastroCLI_PBAI: TStringField
      FieldName = 'CLI_PBAI'
    end
    object AQryCadastroCLI_PMUN: TStringField
      FieldName = 'CLI_PMUN'
    end
    object AQryCadastroCLI_PCEP: TStringField
      FieldName = 'CLI_PCEP'
      Size = 10
    end
    object AQryCadastroCLI_PUF: TStringField
      FieldName = 'CLI_PUF'
      Size = 2
    end
    object AQryCadastroCLI_GRU: TStringField
      FieldName = 'CLI_GRU'
      Size = 3
    end
    object AQryCadastroCLI_FON: TStringField
      FieldName = 'CLI_FON'
      Size = 25
    end
    object AQryCadastroCLI_CON: TStringField
      FieldName = 'CLI_CON'
      Size = 50
    end
    object AQryCadastroCLI_LOC: TIntegerField
      FieldName = 'CLI_LOC'
    end
    object AQryCadastroCLI_MAT: TIntegerField
      FieldName = 'CLI_MAT'
    end
    object AQryCadastroCLI_ATI: TStringField
      FieldName = 'CLI_ATI'
      Size = 15
    end
    object AQryCadastroCLI_DTAA: TDateTimeField
      FieldName = 'CLI_DTAA'
    end
    object AQryCadastroCLI_CODFUNC: TIntegerField
      FieldName = 'CLI_CODFUNC'
    end
    object AQryCadastroCLI_OBS1: TStringField
      FieldName = 'CLI_OBS1'
      Size = 60
    end
    object AQryCadastroCLI_OBS2: TStringField
      FieldName = 'CLI_OBS2'
      Size = 60
    end
    object AQryCadastroCLI_OBS3: TStringField
      FieldName = 'CLI_OBS3'
      Size = 60
    end
    object AQryCadastroCLI_OBS4: TStringField
      FieldName = 'CLI_OBS4'
      Size = 60
    end
    object AQryCadastroCLI_OBS5: TStringField
      FieldName = 'CLI_OBS5'
      Size = 60
    end
    object AQryCadastroCLI_DTATU: TDateTimeField
      FieldName = 'CLI_DTATU'
    end
    object AQryCadastroCLI_NEG: TBCDField
      FieldName = 'CLI_NEG'
      Precision = 18
    end
    object AQryCadastroCLI_LIM: TBCDField
      FieldName = 'CLI_LIM'
      Precision = 18
    end
    object AQryCadastroCLI_EMAIL: TStringField
      FieldName = 'CLI_EMAIL'
      Size = 60
    end
    object AQryCadastroCLI_CCOND: TIntegerField
      FieldName = 'CLI_CCOND'
    end
    object AQryCadastroCLI_PRAZO: TIntegerField
      FieldName = 'CLI_PRAZO'
    end
    object AQryCadastroCLI_BANCO: TIntegerField
      FieldName = 'CLI_BANCO'
    end
    object AQryCadastroCLI_IDE: TStringField
      FieldName = 'CLI_IDE'
      Size = 1
    end
    object AQryCadastroCLI_REF1: TStringField
      FieldName = 'CLI_REF1'
      Size = 50
    end
    object AQryCadastroCLI_REF2: TStringField
      FieldName = 'CLI_REF2'
      Size = 50
    end
    object AQryCadastroCLI_INDVEN: TIntegerField
      FieldName = 'CLI_INDVEN'
    end
    object AQryCadastroCLI_RAMATI: TIntegerField
      FieldName = 'CLI_RAMATI'
    end
    object AQryCadastroCLI_ENT_DESLOC: TStringField
      FieldName = 'CLI_ENT_DESLOC'
      Size = 1
    end
    object AQryCadastroCLI_ENT_ESCADA: TStringField
      FieldName = 'CLI_ENT_ESCADA'
      Size = 1
    end
    object AQryCadastroCLI_ENT_GARAGEM: TStringField
      FieldName = 'CLI_ENT_GARAGEM'
      Size = 1
    end
    object AQryCadastroCLI_ENT_ELEVADOR: TStringField
      FieldName = 'CLI_ENT_ELEVADOR'
      Size = 1
    end
    object AQryCadastroCLI_ENT_PAVIMENTO: TIntegerField
      FieldName = 'CLI_ENT_PAVIMENTO'
    end
    object AQryCadastroCLI_ENT_DISLOG: TIntegerField
      FieldName = 'CLI_ENT_DISLOG'
    end
    object AQryCadastroCLI_DTCAD: TDateTimeField
      FieldName = 'CLI_DTCAD'
    end
    object AQryCadastroCLI_CHAVECTB: TIntegerField
      FieldName = 'CLI_CHAVECTB'
    end
    object AQryCadastroCLI_HISTCTB: TIntegerField
      FieldName = 'CLI_HISTCTB'
    end
    object AQryCadastroCLI_CENTRO_CUSTO: TIntegerField
      FieldName = 'CLI_CENTRO_CUSTO'
    end
    object AQryCadastroCLI_DTVALLIM: TDateTimeField
      FieldName = 'CLI_DTVALLIM'
    end
    object AQryCadastroCLI_EMAILCOB: TStringField
      FieldName = 'CLI_EMAILCOB'
      Size = 100
    end
    object AQryCadastroCLI_SUBGRU: TStringField
      FieldName = 'CLI_SUBGRU'
      Size = 3
    end
    object AQryCadastroCLI_SEQENTREGA: TIntegerField
      FieldName = 'CLI_SEQENTREGA'
    end
    object AQryCadastroCLI_INATIVADO: TStringField
      FieldName = 'CLI_INATIVADO'
      Size = 1
    end
    object AQryCadastroCLI_DTA_ATI: TDateTimeField
      FieldName = 'CLI_DTA_ATI'
    end
    object AQryCadastroCLI_DTA_INA: TDateTimeField
      FieldName = 'CLI_DTA_INA'
    end
    object AQryCadastroCLI_CARTAO_FIDEL: TStringField
      FieldName = 'CLI_CARTAO_FIDEL'
      Size = 10
    end
    object AQryCadastroCLI_DESCMAX: TBCDField
      FieldName = 'CLI_DESCMAX'
      Precision = 18
    end
    object AQryCadastroCLI_SENHA_CARTAO_FID: TStringField
      FieldName = 'CLI_SENHA_CARTAO_FID'
    end
    object AQryCadastroCLI_VLRBASE_PONTUACAO: TBCDField
      FieldName = 'CLI_VLRBASE_PONTUACAO'
      Precision = 18
    end
    object AQryCadastroCLI_SENHA_ACESSO: TStringField
      FieldName = 'CLI_SENHA_ACESSO'
    end
    object AQryCadastroCLI_TIPO_CARTAO: TStringField
      FieldName = 'CLI_TIPO_CARTAO'
      Size = 1
    end
    object AQryCadastroCLI_CON_FINAL: TStringField
      FieldName = 'CLI_CON_FINAL'
      Size = 1
    end
    object AQryCadastroCLI_PRI_TEL: TStringField
      FieldName = 'CLI_PRI_TEL'
      Size = 14
    end
    object AQryCadastroCLI_SEG_CONT: TStringField
      FieldName = 'CLI_SEG_CONT'
      Size = 50
    end
    object AQryCadastroCLI_SEG_EMAIL: TStringField
      FieldName = 'CLI_SEG_EMAIL'
      Size = 60
    end
    object AQryCadastroCLI_SEG_TEL: TStringField
      FieldName = 'CLI_SEG_TEL'
      Size = 14
    end
    object AQryCadastroCLI_TER_CONT: TStringField
      FieldName = 'CLI_TER_CONT'
      Size = 50
    end
    object AQryCadastroCLI_TER_EMAIL: TStringField
      FieldName = 'CLI_TER_EMAIL'
      Size = 60
    end
    object AQryCadastroCLI_TER_TEL: TStringField
      FieldName = 'CLI_TER_TEL'
      Size = 14
    end
    object AQryCadastroCLI_ROTA: TIntegerField
      FieldName = 'CLI_ROTA'
    end
    object AQryCadastroCLI_MUNCOD: TIntegerField
      FieldName = 'CLI_MUNCOD'
    end
    object AQryCadastroCLI_COD_INT: TAutoIncField
      FieldName = 'CLI_COD_INT'
      ReadOnly = True
    end
    object AQryCadastroCLI_SUFRAMA: TStringField
      FieldName = 'CLI_SUFRAMA'
      Size = 9
    end
    object AQryCadastroCLI_PRECO_PADRAO: TStringField
      FieldName = 'CLI_PRECO_PADRAO'
      Size = 1
    end
    object AQryCadastroCLI_EMAILNFE: TStringField
      FieldName = 'CLI_EMAILNFE'
      Size = 100
    end
    object AQryCadastroCLI_COMISSAOFUNC: TBCDField
      FieldName = 'CLI_COMISSAOFUNC'
      Precision = 18
    end
    object AQryCadastroCLI_GNRE: TBCDField
      FieldName = 'CLI_GNRE'
      Precision = 18
    end
    object AQryCadastroCLI_RG: TStringField
      FieldName = 'CLI_RG'
      Size = 30
    end
    object AQryCadastroCLI_NUMERO: TStringField
      FieldName = 'CLI_NUMERO'
      Size = 10
    end
    object AQryCadastroCLI_COMPLEMENTO: TStringField
      FieldName = 'CLI_COMPLEMENTO'
      Size = 30
    end
    object AQryCadastroCLI_PRI_DTNASC_CON: TDateTimeField
      FieldName = 'CLI_PRI_DTNASC_CON'
    end
    object AQryCadastroCLI_SEG_DTNASC_CON: TDateTimeField
      FieldName = 'CLI_SEG_DTNASC_CON'
    end
    object AQryCadastroCLI_TER_DTNASC_CON: TDateTimeField
      FieldName = 'CLI_TER_DTNASC_CON'
    end
    object AQryCadastroCLI_VRPRI: TBCDField
      FieldName = 'CLI_VRPRI'
      Precision = 18
    end
  end
  object DsAQryCadastro: TDataSource
    DataSet = AQryCadastro
    Left = 640
    Top = 291
  end
  object ADOConnection1: TADOConnection
    DefaultDatabase = 'ZUMAMGR'
    LoginPrompt = False
    Provider = 'MSDASQL.1'
    Left = 40
    Top = 328
  end
  object DsAQryAcertaCliente: TDataSource
    DataSet = AQryAcertaCliente
    Left = 496
    Top = 504
  end
  object AQRY: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    Left = 40
    Top = 376
  end
  object AQryBD_FAC: TADOQuery
    AutoCalcFields = False
    CacheSize = 30
    Connection = ADOConnection1
    CursorType = ctStatic
    LockType = ltReadOnly
    CommandTimeout = 10
    Parameters = <
      item
        Name = 'FC_CODCLI'
        DataType = ftString
        Size = 5
        Value = '44398'
      end>
    Prepared = True
    SQL.Strings = (
      'SELECT * FROM BD_FAC'
      'WHERE FC_CODCLI = :FC_CODCLI')
    Left = 583
    Top = 332
  end
  object DsAQryBD_FAC: TDataSource
    DataSet = AQryBD_FAC
    Left = 640
    Top = 344
  end
  object AQryMOVVEN: TADOQuery
    AutoCalcFields = False
    CacheSize = 30
    Connection = ADOConnection1
    CursorType = ctOpenForwardOnly
    LockType = ltReadOnly
    CommandTimeout = 10
    Parameters = <
      item
        Name = 'MVE_CODCLI'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = 44398
      end>
    Prepared = True
    SQL.Strings = (
      'SELECT * FROM MOVVEN'
      'WHERE MVE_CODCLI= :MVE_CODCLI')
    Left = 584
    Top = 387
  end
  object DsAQryMOVVEN: TDataSource
    DataSet = AQryMOVVEN
    Left = 640
    Top = 400
  end
  object AQryMOVEST: TADOQuery
    AutoCalcFields = False
    CacheSize = 30
    Connection = ADOConnection1
    CursorType = ctOpenForwardOnly
    LockType = ltReadOnly
    CommandTimeout = 10
    Parameters = <
      item
        Name = 'ME_CLI'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = 44398
      end>
    Prepared = True
    SQL.Strings = (
      'SELECT * FROM MOVEST'
      'WHERE ME_CLI= :ME_CLI')
    Left = 583
    Top = 444
  end
  object DsQryMOVEST: TDataSource
    DataSet = AQryMOVEST
    Left = 639
    Top = 455
  end
  object AQryBD_ORC: TADOQuery
    AutoCalcFields = False
    CacheSize = 30
    Connection = ADOConnection1
    CursorType = ctOpenForwardOnly
    LockType = ltReadOnly
    CommandTimeout = 10
    Parameters = <
      item
        Name = 'CO_CLI'
        DataType = ftString
        Size = 5
        Value = '44398'
      end>
    Prepared = True
    SQL.Strings = (
      'SELECT * FROM BD_ORC'
      'WHERE CO_CLI= :CO_CLI')
    Left = 582
    Top = 507
  end
  object DsQryBD_ORC: TDataSource
    DataSet = AQryBD_ORC
    Left = 637
    Top = 520
  end
  object AdoScript: TADOCommand
    Connection = ADOConnection1
    Parameters = <>
    Left = 32
    Top = 448
  end
  object AQryScript: TADOQuery
    AutoCalcFields = False
    Connection = ADOConnection1
    CursorLocation = clUseServer
    Parameters = <
      item
        Name = 'CODO'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end
      item
        Name = 'CODD'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      'EXEC ACERTA_CLIENTE :CODO , :CODD')
    Left = 88
    Top = 384
  end
end
